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290 w CHECKSUM AND PUNCK BINARY WORQY 00 00289 
291 « 00 OHv290 
292 PwR1 LOB ETSt pete sa go Ho294 
293 Jap é RETURN OM 00292 
294 PuR a wet. ENTRY POINT. 90 99253, 
095 srr ETS4 JC 00294 
296 TAS CO 00295 
297 PQA CKSM CALCULATE CHECKSUM Of GO286 
296 8fa  €K8W" COC} ee —_ Of CoagF 
299 T34 50 ON29R 
309 DEER 2. | er ee 00 602995 
$O4 ASL6 18 BA 2 MAX NEGATIVE NUMBER ~ 90 COoson 
$02 LLSR 12 SHIFT IN FIRST S$IX BITS oo H0304 
303 PWR2 ERA K40 ENDQCE 00 00309 
354 a Rad OENUDWOE suas u-thsaceptaneseemerae insane, ease 00 8B8587 
3098 JSS3 ETOP 8S3 EXIT 00 09304 
306 CALL OUTA NUTPUT ONE CHAR © 960 69305 — 
897 ThA C0 00306 
308 LiRL 6 SATE T IN NEXT SIX BITS | ~ O90 00307 — 
309 332 PwR ALL FINISHEQ 60 AO30R 
310 JMP PWR? eee 90 60308 
sil NOP _ es ~ 90 80870 
312 » oo oo314 
$13 % PUNCH LEADER/TRAILER NULLS yO OYSL2 
314 x _ _ ee ee mk 2 
$15 PLU ENTR y 09 OUST ™ 
$14 Loa K200 SET FOR APPROX 12 INCHES varlan Gate MARAT AH 3 ( 
317 _. 2A 4200 | __ ASCII NULL ee ee _ 00 OSI" 


a i De oe ee ee eee ae oe 
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003373 002000 a Sid PLOX = CALL OUTA PUNCH ONE CHAR GO 00317 
008374 007334 4A 
005975 901020 A 349 BZ PL OR OO COSTE 
005376 105370 A 
008377 005322 A 320 NBR COUNT 00 00319 
_ 90584900 001400 A $23 4 #3J$$83 TOP §$3 EX?T i i NGA 
005404 006221 A 
005402 091900 A 32a IMP PLOY 60 00323 
008403 005373 A... apse ge eect ccc sea rset epigenetic nena 
323 2 -—00 00322 
$24 « 00 60323 
= — _. S28 eo SE 
326 » On GO325 
327 8 INIT*@LNITIALIZE MEMORY, 0 00326 
S28 #  XS8TART ADDRESS oo ne 0G OF 
329 » YEFINAL ADORESS OO 00328 
330 « ZSINITIALIZING VALUE 00 003829 
senha snaccttsontecnas WR WE Aaa cc pect ct csp Sa aesacea aie escent Pree ntoe ee 0 06 
332 »# FORMAT! £XpYVoZe 00 00334 
333 a. 00 00332 
_ - J54 * _ oases cess nsneciciemas state nauieetessnass ite 90 00 
0035404 066020 A $30 purt ADDRESS FOR STORING INPUT PARAMETERS 00 00334 
008405 000446 A 
008408 002000 a 336  — CaAbi INPG GET OCTAL PARAMETER nf 00335 
005467 007280 A : 

005449 001000 A 337 IMP ETOP TERMINATION EXIT VIa SS3 OG 00336 
008443 006221 A ee 
003442 001000 A 336 JMP eToP ABORT 00 003837 

008443 006221 A - 
008444 0013000 a 339 JmP ENTS COMMA EXITeeGET NEXT PARAMETER _ -—~06 00338 

005415 005444 A 

340 # NORMAL RETURN FROM aici REG CONTAINS THIRD PARAMETER 90 00339 

0058446 030446 A 3 a4) L Qx ETS\ TART ADDRESS | 00 00346 

~ 008447 080482 A 342 STA ETSi+4 sAVE-INE INITZALIZING VALUE «OO OOS4G- 

008429 005021 A 343 TBA TEST NO, PARAMETERS 00 00342 
905424 9006140 A 344 __ $uBsl ETS$i+2 60 00343 

0058422 000450 A 

008423 OO1N10 A 345 Jaz nod wf 00 00344 
OU SOA OSG a rsp ee a 

908428 000823 A pila varian data macaines » (ARAN 
_ 008427 010447 a gar TEST PARAMETER 00 o034e 


a 
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005435 140446 aA 348 $A ETSi RANGE 60 80347 
005434 001004 A 349 JAN EXIT hee CO 00348 
905432 0063235 A 7 soa eae tateens ae 
005433 910452 A $530 INI2 LOA ETSi+4 STORE VALUE Z 60 00349 
005434 055000 A 935} STA O14 00 C0350 
005435 009041 A $32 TeA _— oo ee 90 00351 | 
005436 149447 A 9353 SUA ETSi +1 FINAL AQDODRESS O00 OOSS? 
0U5437 001019 A 384 JAZ ETOP YES 00 60358 
= 0054490 900221 A Seas ne oes 7 7 
00944, 005144 a $55 TKR GO N0354 
005442 001000 A 356 J 4P INI2 STORE Z AT NEXT LOCATION oo 09855 
(008443 005433 A _ ss pasemaetiicindestcadsemeecaiasiiueseusisdaeaiiunconeiopsunebonsiauauaas ob eh es 
357 « 00 QCO03854 
008444 05600) 4 988 yNIS STa 0,2 SAVE INPLT PARAMETER 90 090357 
005445 yosi2z2 A 358 I3R ee Se aes es teases sib eeiiseeee oo CQS5a 
005446 091009 A 360 J MP INIT#2 GET NEXT PARAMETER 90 00358 
0059447 906406 A 
- 3614 8 Se ee 00 00360 
$62 « OO 00384 
$63 « 00 C0362 
aareectan —— 554 eis dae rer ee ee aes yO C0863 
S65 «# ETRPeaTRaAP Tl) LOCATION X STARTING FROM LOCATION Y, 00 60364 
$66 « IF LOCATION X YS REACHED’ RESTORE LOCATIONS X & Xd, PRINT oo 09388 
; 367 » THE CURRENT VALUES OF REGISTERS A,B,X, AND RETURN TO THE 00 00366 | 
7 368 » ~ €XECQ SUPERVISAR = “90 Ga867 — 
69 » 06 00388 
er 12° oe HOTEL CONTENTS OF LOCATIONS» ANY Mod MUST BE RESTORES BY 00 Gosee 
| 373 USER IF TR I$ NOT ACHMED BY THIS ROUTINE 00 003870 
$72 # 060 00371 
: _ 973 & FORMATS TXeVg oe _ sis Oh 903572 
374 » - i 90 60373 — 
375 « 00 00374 
608459 006620 A 376 ETRP LOBI E2YSi- (8) POINTS TO PARAMETER TRL 600 003875 
005484 900446 a 7 SC OO 
008452 010446 a 9377 LOA ETSi X @ PREVIOUS Y 06 O0374 
O0S453 050447 A 378 = STA TSA OL ee _ ______ 00 00377 
005454 002000 A 379 CALL INPG INPUT OCTAL NUMBER OO 00378 
005455 007250 A 
OO AES coseee A $80 | JaP 0 COE TOP TERMINATION EXIT VIA SSS 00 00878 
008457 9006221 A , 
005469 001000 a 383 IMP ETOP agORT varian data magyngds 
0U5464 906221 A _ aes een geo ssc ‘ 


2 2 oo © a8 _— 


2 eee eee = a a a 


2 fe st Se SS a a a oo — ee oe 
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005462 901060 a 382 J4e ETR4 COMMA EXIT-<GET SECOND PARAMETER O00 903814 
005463 095536 A 
ooo BS we NORMAL RETURN FROM [NPG lO 0SBQ 
008464 056000 A 384 STA 0,2 STORE PARAMETER 60 003838 
005465 006030 A 385 Lox ETS1+2 TEMP STORE ADORESS 00 003884 
008466 900450 A Slee ee Nec a ce al a ee es ee ee 
005467 020446 A 386 LOR ETS} X PARAMETER(TRAP LOCATION) 00 00385 
008479 016000 A 387 Loa 0,2 00 00386 
003474 955000 A 3868 STA 0,4 } }& #& # # SAVE CONTENTS OF LOCATION X AT T8902 £90 00347 
005472 9016001 A 9869 LOA 1,2 | O00 o038a 
005473 oS58001 A 990 STA 1,1 SAVE CONTENYS OF LOC, Xet AT TSOS 00 00389 
005474 0969019 4 $9,  .LOAT O20Q0 —.. OF GOQDE FOR JnPmu Oo OUS9O 
005475 002000 A : 
005478 9056909 a 392 STA 0,2 STORE JMPM AT LOC X 00 CoS! 
005477 006010 A 393  .-.gAY @TR2 oo ooo _ti(‘é aw ONS OP 
008500 005846 A 
005901 056001 A 394 STA 1,2 STORE TRAP RETURN ADDRESS AT X41 00 00393 
005502 003000 A 985 VSP — EGOL——“(‘(#™sC(‘(CROAD PSEYOO REGISTERS AND GOTO LOC Y  §=600 00394 
005503 905754 A 
396 « 00 00395 
005504 050445 A S97 ETRS STA  BARG PUT A CONTENTS INTO PSEUDO A RE | | 
005305 9060444 A 398 sta | PUT 8 CONTENTS INTO PSEUDO 8 REG 
005506 070445 A 399 sTx PUT X CONTENTS INTO PSEUDO X REG 00 ©0398 
005507 034036 A  — OX  ETR2 =. | 00 00399 
005510 905344 A 404 OXR 00 00400 
005544 005344 A 402 OXR SET X REG TQ TRAP LOCATION ADDRESS 60 00404 
005512 010450 A 4038 LOA E8342 oo _ si 00402 
005543 02048; aA 404 Los ETSi+s 00 00408 
005544 088000 A 405 STA O,1 RESTORE CONTENTS OF LOC x 00 C0404 
0088518 066001 A 4 : —- AEOTORE CONTENTS OF Xe{ 00 00408 
~ OO8SLS 002000 A OUTPUT CR & LF ~ 00 00406 — 
005547 007406 A | 
—- 9058290 005041 A. OUTPUT ADORS OF TRAP RETURN 00 00407 | 
605823 002000 A _ a | 60 00408 
003522 O07456 A 
005523 010445 a — _. W390 qo 09 604098 
003924 002000 A PRINT CONTENTS OF PSEUDO A O00 00440 
008525 007416 A | 
005526 910444 A 412 3 FBR} _ | | _ | poe) 
008827 992000 A 4143 CALL OuTE PRINT CONTENTS OF PSEUDO B “00 0 
005530 097416 A varian data machines (Fs) 
0053534 0104435 aA 414 LOA EXRE _—s | - | 90 O04% 
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008532 
OUSSSS 
OUSS34 
005535 
005536 


005537 
0035545 


 OVS544. 


0053549 
005543 
005544 
005545 


905546 
905547 
005559 


7055534 
005552 
005553 
N05$54 
0053585 
6005556 
005587 
005364 
0035564 
005562 


ee a 
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902009 A 415 
JO7416 A 
004000 A 415 
006221 A 
417 
QO56009 A 448 
095123 4 «aie 
006149 A 429 
QNQ0447 A 
001910 A 42] 
QO5454 A 
004000 A 422 
QOS3$23 A 
423 
Q09000 4 424 
YOLO000 A 425 
QgoS3q04 A 
420 
427 
428 
429 
430 
431 
432 
435 
434 
495 
436 
437 
438 
439 
996020 A 449 
060446 A 
yO2Z2000 aA 44} 
907250 A 
901000 A 442 
O96221 A 
QO1000 A 448 
OO68221 A 
O914000 & 444 
QO5632 A 


A445 


*jiteine ete eee 2 8 


MAINTT 


¥ 
ETR! 


7 
ETR2 | 


t. 


VORTEX 


CALL CUTE 


DOASYR 9938 HOURS 


PRINT CONTENTS OF PSFUDL X 


OM 00414 


JmP ETOP ss Cs RETURN TO EXEC SUPERVISOR — OC OG415 
CO fOQa{s 

STA 09? | _ .. STORE PARAMETER X 4 ee . OO 90417 
IVCR 023 INC PARAMETER PTR 90 09418 
§JAT ETSi+i MORE THAN 41 X PARAMETER ? Of 690419 
“Te Tv Th ee 2 hdmi e€@° «+ 

JP EXIT YES PRINT INVALTIO AND GO TO ETOP O68 Ged2y 
| yO (0422 
ENTR Q si peiiasietacotnnssi tadbsemae ise) wench OO 004823— 
J4P ETRS PROCESS TRAP RETURN 060 00424 

7 _ ss iaeetam Sieminpricaictaipiemnie tare linia gta ee peeeranes re ne 00 00425 
00 00426 
00 00427 
ESRCe@SEARCH MEMORY FOR SPECIFIED VALUE, oO 09428 
PRINT LOCATION AND CONTENTS WHRER MATCH IS FOUND 09 00428 
On 0430 

CMMSTART ADDRESS ee 00 00431 
—YOFINAL ADDRESS 60 00432 
ZBeSEARCH VALUE 00 00433 

_MBMASK WORD 004 SHE 


00 90435 
FORMATS SX,V,Z)M, 00 00436 
_ —— ee 00 60437 
00 069438 
Loa] ETS} ADDRESS FOR STORING INPUT PARAMETERS 006 00439 
Catt INPG GET OCTAL PARAMETER ©0020 0200 70" 00 00440 
JaP OETOP _ TERMINATION EXIT VIA SSS 90 0044) 
J 4? ETOP ABORT 00 00442 
IMP EFSR5 j. COMMA EXYT=@GET NEXT PARAMETER QO 004 
varian Gata mabhinss 


NORMAL RETURN FROM INPG==A REG CONTAINS FOURTH PARAMETER 


00 00a N 
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005563 050451 a 448 STA ETSi+3 SAVE MASK WORD CO 09445 
005344 150450 A 447 ANA ETSi+2 MASK SEARCH VALJE OM 090446 
9035965 050452 A 445 _$T4 _ETS8i+4 —= MASKED SEARCH VALUE 2°, XY A 
008566 008021 A 449 T3A TEST NO, OF PARAMETERS 90 00448 
005867 006140 A 4809 SBI ETSi¢S ¢ 00 00449 
005579 000451 A eR ai ee Kaa hc ct cn heen Rn a ne ieee tide nen itl 
005574 O01010 a 454 JAZ LY. # 00 09450 
008572 0098575 A 
008573 99190 oA 4 $2. ti“ NP ETO 
005574 006323 A 
005575 030446 a 483 ESR4 LOX ETS; START ADORESS 00 00452 
005576 90189000 A 484 #£#LQA Opi i (“NK 
005577 150451 A 485 Awa ETSi+3 MASK IT OO 90484 
005609 140452 A 456 Sus EYTSi¢64 00 00458 
00860, 001010 A 457 Jaz ESR2 (GOOD COMPARE OO 00456 
OUSG02 005614 A 
005603 040446 a 458 ESR1 INR ETS1 START ADDRESS 00 00457 
005604 9013400 A 459 _ 3883 ETOP RETURN TO SUPERVISOR 90 69458 
0U860§ 906221 A 
005608 008041 A 460 TXA 00 00459 
005607 140447 A 46)  j('SW3  j.ETSi*i — END ADDRESS oo 00 00460 
0058649 001002 A 462. Jap ETOP RETURN TO SUPERVISOR 00 00461 
005641 yo622i A 
005642 001000 A 463  =JMP E8R4 _GET MEXT WORO a OH O0K4GQ 
005643 005575 a 7 
005844 002000 a 464 E8R2 CALL OuTC CR/LF 00 60463 
005615 007404 A seein ores deemed aatee saan soe ae stipes secacectaescescscgtcn tea nssnpleast ms dee tease atch pees tetecanlectaee toces sg tasnaaatann 
005616 010446 A 465 LOA ~—6©ET SS ADORS OF WORD 00 07464 
005617 002000 A 466 CALL QUTF PRINT MEMORY ADDRESS 00 00465 
005620 007456 A BS a a sn tg ees 
005621 006019 a 467 LOA Tal EQUAL SIGN 00 00466 
003622 000275 A | 
005623 002000 A 468 — CALL OUTTA Seieieplebeemmeomiatins, wip. gisele daisseacuerieens icespe atieniteeoes autotat oo 00 00467 
008624 007334 A 
005625 015000 LOA Ori CONTENTS OF ADDRESS 00 00468 
005625 902000 & CALL OUTE _ PRINT CONTENTS 0 04ED 
005627 907446 A 
0905639 901000 aA 474 JM ESRi CONTINUE 69 00470 
005633 008603 A sae esate te ee 
~ 0059632 056000 A 472 ESRS STA 0,2 047, 
095633 008122 A 473 1aR verian date magningta 
_ 095634 094000 A 474 _. SMB BSRC*2 = “ss NEXT PARAMETER OO 004 


~ = = a 2 a2 a a a ae = om. * a =, vil == = =. as - —r = . = — 
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005635 005553 A 
475% 09 00474 
2 $i. scape sacs ecedniasasncrocsaina ate neriaaiae _...90 004785  _ 
477 « 00 00476 
478 « 00 00477 
479 » OISPLAY/CHANGE THE PSEUDO A REGISTER _ : 00 CO47F 
480 « 00 GO479 
005638 006010 4 481 EARG LOAI 0240 ASCII SPACE 00 004406 
0U5637 000240 A Bepscitapeieeseet aie seh ¢ Guests eesieiawene gues a 
005649 002000 A 482 CALL OUTA 00 00484 
905644 0073554 A 
008642 9010443 4 483 © LO EAR 4 LOA PSEUDO A = OG 60482 
0US643 002000 A 484 CALL MUTE PRINT CONTENTS 00 00483 
908644 0974145 A 
093645 002000 a 485 CaLL —INPG INFUT QCTAL AND/OR PERIOD 00 00454 — 
005646 007450 A 
008647 001000 a 486 JMP ETOP TERMINATION EXIT VIA SS3 QO 00438 
005659 006221 A a oe _ 
00568, 061000 4 487 Jap ETOP “ABORT EXT - 00 09488 
095652 906221 A 
005653 v01000 a 488 SMP 42 ___ COMMA EXTTesACCEPT IT 10 00487 
008654 005655 A | 
489 » NORMAL RETURN FROM INPG oo 00488 
005655 050446 A 490 STA ETS) SAVE INPUT | un 00469 
OUS6S6 910471 A 497 © LOA 804  °&4¥8$64eDTGYT COUNTER FOR INPG “90 GU490 — 
005657 901040 A 492 Jaz FTOP OsnO GCTAL INPUT,RETURN TO SUPERVISOR OG N0494 
005669 906221 A _ sor suite ate eietaniotears sesepeesan essen tcteetanstseneetec dees eee atacand eeweebune 
00566; 010446 a 493 LOA ETSi 00 90492 
0US662 050443 A 494 STA EAR] STORE NEW VALUE IN PSEUDO A NO 00493 
005663 901000 A 495 JAP ETOP RETURN TO SUPERVISOR 00 00494 © 
SUSE a ONG2O1" A Fcc, AP _ETUrF EIN TU ONPERV SOUR ULL Le _ 80 9U4asS 
496 « 90 04495 
497 8 ee ; OO O0GIE 
498 « DISPLAY/CHANGE THE PSEUDO 8 REGISTER — 00 00497 
AGY x G0 090498 
S00 @ ee ey ee 90 09499 
OUS6FS 010454 A 50) ESXG Lya EKOQ ASCIT BLANK (SPACE) 90 ooS0r 
005664 9002000 A 802 Cale OUTA 90 00504 
~—005667 007334 A ee ee _. ay 
098675 010444 a 8038 py BBR LOAD PSEUDO 8 
005671 002000 A 804 CALL OUTE PRINT CONTENTS varian date magange HT 
005672 007445 4 a ss st asc ste rssctsasasase ale 


ie eel a ld = == - = ee a SS. Oe = Sea ee + ee 5 + ee ee ne ee ee ee ee ee 
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005673 002000 a 5058 CALL INPG INPUT OCTAL AND/OR PERIOD ~ O00 09594 
005674 007250 A 
005675 091000 A 506 _ oP CsETOPR __TERMINATION EXIT VIA SSS ss _ 00 00505 
005575 O06224 A 
005677 001000 A 807 Jae ETOP ABORT EXIT 00 10806 
005799 90622) A een ee secs seers soca escolar akan deaeeatritg en ccdias cotati cctacadec sa avandia tan end ttn 
005704 004000 A 808 JP ne2 COMMA EXTTeeaACCEPT IT of 005907 
005702 905703 A 
| | $09 2 NORMAL RETURN FROM INPG. a ee Sen TT ti(‘(‘iéia ‘COBO 
008703 050446 A 810 STA ETSi SAVE INPUT 09 09509 
005704 019471 A 511 L.QA T9304 TSO4BOIGIT COUNTER FOR INPG GO 06810 
0039705 004010 A Sia . Rs ces xg t Oe _..98NQ QCTAL INPUT,RETURN TQ SUPERVISOR  go¢ 00544 _ 
008708 006221 A 
005707 010446 a Sid LOA ETS! _ 00 00512 
6008740 050444 A 844 _. STA... _@BRY  ._—_s_—=i“i“iéi( ##KP STORE NEW VALUE IN PSEUDO 8 OD OTIS 
005744 001000 A 545 JP ETOP RETURN TO SUPERVISOR 00 M0514 
008712 006221 A 
EG ee ee ae ae ee ee a eee YG OSES 
517 96 00816 
548 « OISPLAY/CHANGE THE PSEUDO X REGISTER 00 00847 
2 ek, OO OOK TS 
520 « go 90519 
003713 010484 A S8@1 EXRG LOA EKOO ASCII BLANK (SPACE) 00 00520 
005744 908000 A S22 CALL OUTTA en a 00 00821 
005745 007334 A ) 
003716 010445 a 523 LOA PXR1 Load PSEUNN x uO 00822 
0087437 908000 A 8a4  CaLe OUTE PRINT CONTENTS ss 90825 
005729 007416 A 
005724 002000 a 8298 CALL INPG INPUT OCTAL ANO/OR PERTOD 00 00824 
008722 007250 A ei oe Beers tian _ sdusienecinsabeinastcecars ss pieseanensies aa suas ne eee 
005723 001000 a 5286 y4e ETOP TERMINATION EXIY VIA SSS 60 60825 
008724 006221 A | 
008725 001000 a 827.  #8JMP TOP ABORT m : __ 00 00526 
008796 906221 A : 
005727 001000 a §28 JP #42 COMA EXT TeeACCEPT IT 00 00827 
_ 005730 00573) A Se css gents wee eee . a _——— Spies rneee 
529 # NORMAL RETURN FROM INPG 00 00528 
005734 050446 A S39 STA ETS4 SAVE INPUT 00 00829 
_ 008732 010474 A S53, $$$} QA 7804 —_  TSO48OTGIT COUNTER FOR INPG | — 09 90530 
~—- 908733 001010 A 832 JAZ ETOP OMNO OCTAL ENPUT,RETURN TO SUPERVIS # 06 005. 
OO5734 008221 A Lavfan data machines 
005735 010446 a 835 j.|FLOA ETS) oo tt 005 : 
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008734 
005737 


003745 


005744 
005742 
008743 
008744 
008745 
005746 
005747 
005759 


0057354 
008789 
005753 
O05754 
005755 
008786 
003757 
005760 


OUS764 
008762 
005763 

008764 
005765 
005768 
6003767 
00577% 
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050445 A 
o91000 A 


008221 


902000 
007250 
901000 
006221 
691000 
006221 
001000 
005751 


050447 


002000 


007404 
010448 


020444. 


030445 
0014000 


100447 


002000 
907250 


004900 


096224 
0014000 
006221 
001009 
005771 


» > FP PP PP P 
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> PYry,Y Pp PP PF YP 
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534 £STA ~~ EXRE- STORE NEW VALUE IN PSEUDO Xx  } } }@©§©8f 90533 
§35 JP ETOP RETURN TO SUPERVISOR 09 (C0534 
556 ee ee re “ss nani 
837 « on OO85A 
559 * ; 00 060537 
539 « oO 00538 
S46 « QO C0839 
$8444 ESGQTes, PAD PSEUDN REGISTERS INTO 4,8,X ANU TRANSFER TO | a On 005406 
S42 « LOCATION SPECIFIED BY USER, 09 060541 
S435 « THE PSEUDO REGISTERS CAN 8E PRESET ITA THE A,8,%x 00 00842 
544 * UTILITY FUNCTIONS, Q0 00543 
545 « SA 90544 
546 » 00 90545 
S47 EGOT CALL INPG - TPUT OCTAL NUMBER ; 00 00546— 
546 JF ETOP TERMINATION EXIT VIA $83 QO 80847 
S49 IMP ETOP ABNRE 2 2 2 — - ~~ "98 00548 
550 UMP 842 COMMA EXIT@wACCEPT IT 00 00549 — 
851i « NORMAL RETURN FROM INPG 00 008350 
b3e@ STA ETSi +3 ee a ees _.. _ 99 00551 
553 Cale Hue OO ACR + LF 66 09852 
394 €GOi LOA _ ARG LOAD PSEUD A REG, | —_ 90 995535 
$55 08 EBR 4 LGAO PSEUDO & REG, 00 00854 
556 L, OX EXRi LOAD PSEUDO X REG, 00 90555 
557 SmPe  BTSi4d ssansussuicinimsetat asians aetnonne _ 00 00556 
558 « OUMP CORE MEMORY TO TTY PRINTER 090 00557 
35S * oe | G0 00558 
S60 ENUM Call INFG INPUT START LOCATION COCTAL) ya AOSSE& 
563 _JMP ETOP TERMINATION EXIT VIA SSS = OG NSEC 
562 JMP ETOP ABORT O00 605614 
563 JMP “o2 COMMA EXIT@@ACCEPT 1 }©©=©=©»=©»©§»§©§»©~—.—————s 0 005897 
vSIN! 1 date macmnes gy 
364 2 NORMAL RETURN FROM INPG pee asec eee egret epee 90 O95: 


2 a cc ee es eee cr ad 


4 es ee CC ————— 2 LE ‘i ee z- 
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008774 050448 
005772 002000 & 


2 
© 
ce. 
“i 
~é 
> 
Cc 
_= 
© 
) me 
Bs 
m 
>? PY KP PY 


as ed 


006009 010454 


& 

006001 002000 A_ 
006002 007334 A 
A 


096003 015000 | 


_ 006004 002000 A 


006005 007416 A 
006006 001400 A 
006007 006221 A 


——_ a a ome [—— a ee 


006019 005148 A 


006044 005002 A 
006012 904543 A 


006014 008017 A 
006015 091000 A 


“008016 0080S A 
006017 002000 A 


~~ 008020 007404 A 
006021 005041 a 


006022 001000 A 


me it —a rd —a 


006023 005776 A 


| | ose —— — 
889 « PRINY/CHANGE CONTE 


006024 002000 A 


006025 007280 A 


§66 CALL ourc OUTPUT CR & LF 00 60565 
$67, (it; LOACOTBOC ; sgn 00866 
566 TAX 00 00867 
$69 EDUS CALL  OUTF =O TRPUT MEMORY AQDRESS 90 00568 
574 LOA EKO00 ASCII BLANK (SPACE) 00 00569 
4 Seer 5 Snore «| | LS Renee ern eee ee 00 09570 
B72 ENU2 LOA 0,1 00 00571 
B73. = S CALL = =—CQUTE __PRINT LOCATION CONTENTS i i OSTA 
574 J3$3 ETOP 60 095783 
$875  YnCR 045  —  YNCREMENT X AND PUT INTO ASX ©. ©65©Q066- GOBF7K— 
576 TZ8 00 00575 
—- 000082 004: a a a ee LINE LENGTH IS 8 LOCATIONS ____ 00 00876 
0060413 061020 A S576 87 U4 NEXf LIN o0 00577 
S79 PC EDURNEXT WORD eee 06 005768 
380 «# _ 06 008798 
B63 fous Cal. oure _ OUTPU CR & LF 00 60580 
$82 TXA 00 00584 
58S  _—_JMP EOU Ss iO 00882 
564 «2 00 06883 
865 a 7 fern eke acu eps pe stent pass eggs oe es a 006 00884 
886 x 00 00885 
587 2 00 060586 
00 00587 
00 90868 
590 »# 00 00589 
oe nn 09D 
892 ECNG CALL INPG INPUT OCTAL MEMORY ADDRESS 00 00894 
TERMINATION EXIT VIA S833 00 00592 


006028 004000 A 593 ___JaP ETOP 


006027 006221 A 
006030 004000 A 


_ 006031 90622) 4 


6a S65 STA ET8i 


394 JP ETOP 


a ee 


ABORT 


varian data ma 


a varian subsidiary 


Sor eee eo men a i a EE — — —— a ——-= — 
Oe es an i | ne ee EES eee Se mee 


06 0u88a 


Benet ss 
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(006032 
006033 


(006034 


006035 


(006036 


006037 
0069049 
006941 
006042 
006043 
006044 
006045 
606046 
0086947 
0060585 
006054 
006052 
006053 


0U6054 
0069055 
0060536 
006057 

006065 
006064 
006062 

006063 


ON60E4 
006065 
0060488 
006067 
006079 
00607; 
096072 
006073 
006074 
006075 
0086976 
006077 
006405 


——s © 
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004000 A 
006034 A 


005014 A 


006010 A 
009275 A 
002000 A 
007334 A 
Q19000 A 
QOZ000 A 
007416 A 


092000 A 


OO7250 A 
OO1L000 A 
OO6224 A 
004900 A 
Oo06221 A 
001000 & 
On6064 A 


050446 A 
010474 A 
094010 A 
005062 A 


010445 a 


055000 A 
0912000 A 


006221 A 


059446 A 
Oo10474 A 
001040 A 
006072 4 
010446 a 
O35000 A 
002000 A 
007404 A 
005145 4 


902000 A. 


O97456 4 
OO4000 A 


006035 A 


= 


MAIN 


595 


999 


597 
596 


599 


600 
601 


602. 


603 
604 
605 
606 
$07 
608 
609 


Lo 


BCNS 


% 


610 


641 


Ste 


619 
644 
615 
616 


ECN2 


we 


648 
619 


620 


622 


| 


If VORTEX DASMR 
“JMP ee” 
NORMAL RETURN FROM INPG . 
T AX 
LQal ia! 
CALL OUTA 
LQa | =) 
Cale OUTE 
CALL  (INPG 
J4P ETOP 
IMP ETOP 
J MP ECN2 
NORMAL 
Sta = ETS 
LOA TSO04 
Jaz eed 
Loe ETS1~ 
STA Ori 
SMP ETOP 
STA 38:5 ee 
Loa TSs04 
Jaz na 
saa ™ Y Sakae 7 ame 
STA O,! 
CALL OUTC 
IVCR 945 
abl... GUTF 
IMP ECNS 


a Ser re: 


O838 HuurRS 


EQUAL SIGN 


TERMINATION EXIT VIA SS3 


ABORT 


RETURN FRO INPG WITH PERIOD 


SAVE INPUT 


~—T8O04RDIGIT COUNTER FOR INPG 


GET LAST INPUT 


SAVE INPUT 


«GET 


INCREMENT X AND PUT INTO A AND X 
PRINT NEXT MEMORY ADDRESS 


uaa Men 
STORE NEW VALVE IN LOCATION 
CR & LF 


PRINT CONTENTS 


4 a a ia i ee 


“OUTPUT OcTAL WORD 
INPUT GCTAL WORO 


. a a = 


COMMA EXIT*=ACCEPT IT | 


a — re 


ae -s r 


TSO4e20IGIT COUNTER FOR INPG - 


ee ee ee a 


COMMA EXIT@@PRINT NEXT LOCATION & CONTENTS 00 


90 OG594. 


VO OG3995 
v0 Q0596 
600 00897 


(OC 00598 


0G 0059S 


090 6Q600 


00 00602 


se 7 a 


00 00603 


00 00603 | 


99 00608 


uO 00606 
00 00607 


00 60608 


op 5 


OH 00609 © 


vaiian Gata magiyr re (AER) 
ee 


= ee ee ——— —ao « 


06 CosinN 


00 00612 
00 02618 


06 00614 > 


00 00615 


00 00616 


of COE {7 


96 GOSS 


no 


00 C0616 


Q6 O0€19 
__ 90 GOB20 


——— 
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—_— = —— | = — — — ss oe —z o TS ee ce 


623 »« 00 60622 
624 2 00 060623 
0! 


—T———— re ee — SSS SS 5 rrr 


626 ) On C0828 
627 » 00 00626 
_ ORE ARK RRA 00627 
629 « 00 00628 
0061459 630 ORG 06150 00 00629 
SR en ee »Y > OX ¢ | =o 
632 TYTTTITITITITT TTT TTT iri, ee 00 00634 
633 « 00 090632 
0061459 004000 A 634 28GN JMR 8G, TTY ENTRY OO 90633 
0061351 0084171 A 3 
006462 008601 A 635 TZA CONSOLE ENTRY 00 00634 
006383 050442 A 636 $STA  SCON * S$CON® Ohhh OO 00635 
006484 002000 A 637 — CALL $2 2 00 008636 


O0645§ 9061641 A 


~0eenes 0060000 A 696 7 — —.. ait vz 
") 094000 A TTTi1. 00 00638 


0061609 006156 A 


| 008484 000000 a 640 E8ZC ENTR °) DETERMINE MEMORY SIZE (00 00639 

~ 608782 002000 A Gay CALL ESZA ® | 90 00640 
006463 006471 A 
006164 050441 a 64Q | STA SMEM 0 00644 | 

005155 002000 A 643 CALL &$28 $6 00642 — 

006468 oo68a2 A 

006467 001000 aA 644. _aMP CESZC)* aaanee EXIT a : _ - 00 00643 
—60061709 106161 A a neil 
006174 008101 A 645 E86} INCR 04 TTY MODE 00 00644 

| oortye 050442 A 646 gra _$CON : BCON # Of 00 60648 
00 3.002000 A 647 — CALL EsZC STTY 8 OL,UNLESS SET 00 00646 
006174 006161 A 

006475 OCOS101 A 648 | INCR =O} a. oe BY 00 00647 
0061376 000000 A 649 ML T a OPERATOR | 00 60648 
006477 006030 A 680 LOxT STTY 600 00649 
006209 907370 A ot a _ _ 
—6©006204 055000 A 65, STA O,1 60 00650 
006202 901004 ‘ 632 JAN 66152 CONSOLE MODE IF TTY DA 8 # O00 006584 


006203 006152 A 


653 8 USER MUST LOAO AND EXECUTE TESTS FROM CPU CONSOLE | 00 0061 
006204 002000 A 684 E8G2 CALL OUTH,020! PRINT ENAQLE Narenicaes MOBO BOE EY 
006205 oo7822 A Oe ee 


PAGE 
006206 
006207 
006219 
006211 
006212 
0064813 
006214 
006215 


006216 


006217 
006224 


006224 
006222 
006223 
006224 
006225 
006226 
006227 
096230 
006231 
006232 
—6 06233 

006234 
9006235 
006234 
006237 
00424" 
906244 
Q0U6a42 
006243 
005244 
006245 
006243 
906247 
096250 
00625; 
QUG25¢2 
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000201 
002000 
907404 
006030 
006413 
on2000 
007448 
096030 
006447 
002000 
007445 


9006010 
000207 
002609 
007334 
902000 
007522 
000201 
002009 


007334. 


902000 

067404 
002000 
908753 
991000 
0062214 
O54911 
006149 
000212 
QOO1010 
000221 
006140 
O%9gCcdgds 
Q914910 
OnN6221 
006010 
999000 


= 


= ase a ee _ se = a a eee eee a : 
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" eS ee eee eee ce ssi. 
A 685 Cale OUTC OUTPUT CRELF 
f | a ee Sree eaten adie ne eee ee fe aie 
A 656 Loxt MSGi THIS IS THE 620 TEST EXECUTIVE 
A 
A §57 CAL = OUTD OUTPUT MESSAGE 
A 
A 653 Lox “S68 MESSAGES MEMORY SIZE IS ok 
WN scrsestcai ie. eect te | eae pee ee ee 
A 659 Cal NUTO OUTPUT MESSAGE 
A 

660 w- ee 7 

§61 » 

662 s 

6063 » TEST EXECUTIVE SUPERVISOR: 

664 » | 
A 665 ETOP LOAT 0207 TTY SELL 
pr 
A 668 CALL OUTA OUTPUT ; 
& 
A 667 CALL _QUTH,OZO1 PRINT ENABLE 
P 
ih | 
A 668° CALL INPT _ANIT TTY 
4 
A 669 CALL OUTC 
A 
A 670 CALL. INPS ~ INPUT ONE CHARACTER © 
A 
A §&871 Jp ETOP ABORT EXIT oS 
: 
A 872 STA ETNae{ SAVE INPUT 
A 6735 SJ8r 9242 LINE FEED CODE element 
: | 
A 674 Jaz ETOP YES 
a —————— Se i sie Wate aco tan ci pl cs cm ead io its Sol ga itachi ame meas vk Vetes. “cada? | enh mabe scams ica ee Rader _— ——— 
A 675 6 Sual 3 CARRIAGE RETURN (0215) 
A 
A 676 Maz ETOP ee NES 
A 
A 677 ETQ4 LODAI 0 GET ORIGINAL INPUT 
A _ 


2 -) Sele ee eae = seer 


a varian subsidiary 


00 O9634 
00 0065S 

o¢ C2656 

vO C0857 


of 0O08s8 


00 OLESS 


00 09686 
00 C(vAS{ 
99 C0662 
00 O08H8 
90 ON6S4 


00 90665 


00 C0666 


_ 00 09667 | 


JO 00666 
00 00669 


00 00870 


varian data nape @ 


ee en ee trai eR ee Cem ag ea a a a a mr SS SaSSe———M.CSSSS SR SS SS SSS SS SSS SS SSS SS SSS SS SS a a a a a a ne ee ee — em a ee 


PAGE 22 06/06/74 MAINIT VORTEX DASMR 0938 HOURS 


mmm mm a am ee nin SE 


006283 006140 A 67a SUBI tat 00 00677 
006254 000301 A 
006255 001004 A 679 °° &#3»=8 JAN EXIT =—=—=—h—hUINVALTO INPUT © =—=©=——ChUCUUCUCUCUCC— i NOG R 
006286 006345 A 
006257 006140 a 689 SyBl 032 Z CHAR 00 00879 
006260 090032 AC 
006264 001002 a 68; JAP EXIT INVALIO INPUT 00 00686 
006262 006323 A 
906253 006120 A 68 ___AQDT (EYBL4032)" INDIRECT ADORESS POINTER FOR UTILITY TABLE 00 00681 
006464 106323 A | 
006265 054002 4 683 STA nos 00 00682 
006266 905007 A 684 ExQOQ 7 6s». CLEAR REGISTERS A,B,x 00 00885 
006267 901000 A 683 JMP O | 00 00684 


006279 006867 A 


006274 008636 a 686 ETSL DATA EARG ___ A PRINT/CHANGE PSEUDO A REG on 00688 
006272 005665 A 687 DATA EBRG B PRINT/CHANGE PSEUDO 8 REG 60 00686 
006273 006024 . 686 DATA ECNG C PRINT/CHANGE MEMORY LOCATION 00 00687 
008874 008764 Aone DATA EOUM D OUMP CORE TO TTY PRINTER ee 00 00688 
006875 00513 DATA EBPN E BINARY DUMP 00 00669 
006878 906323 ‘ ; i | DATA EXIT F NOY USED 00 00690 
006877 005744 A 692 DATA  EGOT  _—_—_ G6 TRANSFER TO SPECIFIED LOCATION i $96 O0694 
0085900 008323 A 898 DATA EXIT H NOT USED 00 

006301 9008404 A 694 DATA INIT T INITIALIZE CORE OC 006 

006902 006523 A 695 OATA EXIT | J NOT USED 00 001 
005903 008325 A DATA K NOT USED | «A 0068S 
006304 006327 a 697 DATA FLOOD L LOAD OBJECT TAPE AND TRANSFER TO PROGRAMOO 

—- 006305 006323 A 698 DATA EXIT M NOT sep _ - 00 
006308 0663235 A 699 00 
006307 006323 A 700 DATA EXIT 0 NOT USED 00 
006310 905100 A an) DATA EPUN : PUNCM A PAPER TAPE ON TTY PUNCH - 00 Oo 
ready. 006325 A DATA XIT NOT USED On 4 

006312 006523 A 703 DATA EXIT R NOT USED 00 
(006313 005553 A 704 DATA ESRC 8 SEARCH MEMORY oe 00 
(0063134 005450 A 705 DATA ETRP T TRAP 00 00 
006315 006323 A 706 DATA EXIT U NOT USED 90 

(006336 006323 A 707 DATA EXIT CFCC NOT USED 8 90708 
006317 0063235 4 708 DATA EXIT kK NOT USED 00 O¢ 
006329 005713 A 709 DATA EXRG ¥ PRINT/CHANGE PSEUDO X REG 00 
006323 006383 A 740 DATA EXIT Y NOT USED | | si 


006322 006323 A Ay ; DATA EXIT Z NOT USED varian data magsingy (im 
et |e Ae aan eae aT ee n° 007 A 


ee er ee ee ee ee eos oe a 
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744 4 N0 AAa7ia 
145 * On COo7LA 
(006323 092049 4 73S EXIT CALL  AUTG ___ PRINT INVALIO & CR/ALF  _ _. 08 C9745 _ 
006324 007475 A 
0086325 001000 A 717 JMP ETOP RETURN TO TOP OF SUPERVISOR OO OCY7LA 
O06$26 OO6221 A. -— _ _ 
7i8 « ON 290717 
749 2 On OOF 18 
_ 920 wn a ON O97 LE 
721 « 990 00720 
722 % ELQN== .Oad OBJECT TAPE AND TRANSFER TO TEST PROGRAN un 00724 
723 2 | ae es aa a 00 HO722 
Ac le 90 0V723 
006327 002000 A 725 ELD CALL INPF INPUT PERTIOO 30 89724 
6006339 097170 4 | | | 
006334 001000 A 7286 JP ETOP TERMINATE EXIT v0 6725 
606332 006221 A 
006333 001000 A 727 IMP ETOP ABORT EXIT - 90 90726 © 
006334 006221 A Me! 
006338 001009 a 728 J 4P ETOP PELETE PREVIQUS CHAR EXIT 00 09727 
0063386 006221 A | a 7 a 
006337 001909 a 729 IMP w+ COMMA RETURN@=ACCEPT IT OU 00724 
006340 OOSSas A | 
739 « NOEMAL RETURN FROM _INPF WITH PERTOO 50 6072S 
006$4; 905101 4 731  #$$<INCR Of SET ANO FOR LOAD AND EXECUTE “GA 60738 
006342 992000 A 732 IMP Ms LOAD GO TO BINARY LOADER 00 CO731 
006343 100470 A oo. eee Bees pes eatin ce ne _ 
006344 005042 A FSS Tx | SAVE ¥X —_ 00 00732 — 
006345 90066030 a 734 LOX! M362 MESSAGES CHECKSUM ERROR or 007353 
0U6$46 9006454 A 
= 008347 902009 az 735 #&#&# & # °»;‘CaltL AUTO ~~ #4«.4“BRINT MESSAGE ~ gh ADZ3S 
606385 yv07445 A 
00635; 905921 A 736 al) OUTPUT X 00 O0755 
0u6352 092000 4 737 Cah OUTE ee oo 00 00736 
JO6353 97414 A 
006354 yOi000 A 738 —_ SMP _ ETOP EXEC SUPERVISOR 09 90737 — 
006353 yo6221 A 
739 « 06 fO7 5B 
AAO we ee ep ieee ie a re —_ 
741 
742 * Ver iet d se ve magn ger 
743 : ee OM 007 4% 


— = -— = sm _ = eS om © or am me mr a rm a a a ee er nT — —_ | 
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Tada TYPICAL POWER UP/DOWN SUBROUTINE 00 00743 
745 « POWER DOWN INTERRUPT ADDRESS 040 O00 00744 
IHG Wl ROWER UP INTERRUPT ADDRESS 042 oo | 90 00745 _ 
747 & 00 00746 
748 « POWER NOWN PROCESSOR 00 00747 
ee AX, 00, OO? 1 C20 #1) A - 
006386 000000 4 7580 PWON' ENTR 0 On C9749 
006357 0840265 A 751 STA SAVA SAVE a, B AND X REGISTERS 00 C0750 
006359 9064026 A 752 # #§;2€sT8 =~ #83SAVB ey | 
QOU636; 074026 4 733 $TX SAVX 090 00752 
008362 9905001 A 754 TZA CHECK AND SAVE OVEReFLOW CONDITION 00 00783 
906363 065511 A 755 DATA (905511 . INCREMENT A IF OVERFLOW SET # }3&=& 3 =o OO7 84 
008364 034024 A 756 STA SAVO 00 00755 
0063865 044024 A 757 IVR HLTF SET POWER FAIL/RESTRY FLAG, 00 00756 
006366 040472 A 758 INR PWRK STEP POWER FAIL COUNTER DO RAK NR ee 
0086367 200000 A 758 PHLT ML T 00 00757 
760 »® 00 60758 
764 « POWER UP PROCESSOR Z | _ 00 00759 
762 n 00 00760 
00637n 014021 A 763 PwRU LDA HLTF CHECK IF POWERING UP FROM RUN CONDITION 00 Ou761 
006971 001010 A 764 Jat PRAT OM OTB 
006372 006367 A 
006373 0935001 a 7868 TZA CLEAR POWER FAIL/RESTRT FLAG oo 00763 
006374 054015 A 766 = STA OAT ROO 00764 
767 & 00 00768 
768 « CODING TO REINSTATE 620/F OPTIONAL HARDWARE AFTER A 00 00766 
 7oo w ____—_s POWER FAILURE, MUST BE DEFINED HERE THE TOTAL EXECUTIONOO 007867 
770 x TIME NOT TO EXCEED A SPECIFIED TIME PERIORO, SEE PPS 00 00768 
771 2 FOR TIMING CONSTRANTS, 00 00769 
006375 014013 A 772 ~—_—siLOA SAVO SETUP OVERFLOW FLAG 0 00770 
008375 0019010 A 773 JAZ  #es | | 0G 060774 
006377 006401 A 
0064090 0074014 A 774 SOF | eee) 00772 
006404 014004 A 778 LOA SAVA RETURN A, B A ISTERS 00 007738 ~~ 
006402 924004 A 776 Lge SAVB OO OO774 
008403 034004 A 777, —ixLQx = SAX a 00 00778 
006404 001000 A 778 | IMPs PWON RETURN TO LOCATION INTERRUPTED FROM 00 00776 
006405 106356 A | 
a nan i wee cancun nee: —_ | —— — 7 ee 
006466 090000 & 780 S$AVA ATA C 00 00774 
006407 000000 A 781 SAVB DATA ) varian data magyings 7 bra 
096439 900000 A 782 SAVX DATA OO ee ee 00 00750” 


ee a2 Se 


PAGE 


(006411 
006412 


OU8415 


006444 
006445 
006414 
006447 
006426 
00642; 
006422 
008428 

006424 
006425 
006426 
006427 
008435 
0064351 
006432 
006434 
006434 
008435 
006435 
006437 


008449 


00644; 
606442 
006445 
906444 
0094458 
008448 
008447 
00545) 
006454 
006482 
008453 
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900600 4 


090000 


152310. 


144725 


1203141 


151649 
15231490 
442540 
15335262 
130240 
152305 
451724 
120305 
154305 
141725 
1523114 
193305 


1O0812 


Q00000 
441740 
142703 
145723 
1352715 
120505 
151322 
147722 
129240 
154249 
{36640 
090900 
148705 
148747 
151334 
120323 
144732 


A 
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_— 
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MAINIT 


VORTEX 


793 MSG2 DATA 


7934 #“S58G68 JATA 


a 


DASMR 


783 Savi DATA ‘) 
7846 WLTF 8 80(aATA Q 
785 se Selec Seats essesciseecseeclldtindtieineas 
7868 « 
7867 « 
ee A) 
789 « 
799 « MESSAGE TASLE 
2 ae ee 
792 “8Gi OATA 


'CHECKSUM ERROR 


= os 


MEMORY SIZE 8 


i 0 eee 


'THIS IS THE 620 TEST EXECUTIVE, 0106612,9 


OO Gu7ay 

20 GOo7 82 
00 O0788 
50 CO7 BA 

oO 060788 

Of SO7SEF 

On Oy787 

of 00788 

G0 00739 — | 
OO Oy739N 


i _ _ 00 99791 | 
90 00792 
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006454 142640 A 

906455 144723 A 

006486 120240 A a a a a ay cl 
006457 126655 A 795 MSG4 DATA feek!,0406612,0 00 007983 
006469 145640 A 

60646; 1066142 A eS ee 


006462 000000 & 
006463 120240 4 796 M$G5S aTa Po INVALIO?,O OO 09794 
908464 144715 A 


309) gl ace e anes Se iit DSi ei Ts iit aS esi Psi ae Dim 
006466 146331 A 
906467 142240 A Aas A ESSE a ca ls a ls se a eer 


006479 000000 A 


797 «x 00 00795 
798 en ( 6 
799 w» ROUTINE FOR OCETERMINING CORE SIZE O00 60797 
8090 « 00 OO798 
ae toe. 000000 A 604 ESZA ENTR OF ©. LL a 00 C0796 
008472 100548 4 802 Exe 545 ~ OLSABLE MEMORY PARITY INT, ~ 00 GOB0O0 
006473 010000 A 803 Loa 0 00 008014 
006474 050002 A 804 STA 2 ~~ SAVE CONTENTS OF LOCATION ZERO . 00 00802 
0084783 008001 A 6865 TZA ~~ © CO8OS 
008476 030000 A 806 STA 0 cs 00804 
006477 005311 A 807 PAR 1k | _ 00 00805 
‘008309 006120 A 808 ESZi AQ0I 4096 NEXT 4K MEMORY ADDRESS 00 00806 
006504 010000 A 
008502 005014 A 609 TAX _ a _ _ 906 00807 
006503 025001 A 810 LOB 1,1 SAVE MEMORY CELL IN B REG 00 CORO 
006504 O55001 A 6141 STA 1,4 60 008909 
006805 015004 A 812 —_ LOA et a 7 | oo 00 09810 
006506 130000 A 813 ERA ‘ 00 60811 
0V6507 001010 A 614 Jaz ESZ2 JUMP IF END OF MEMORY OO 00812 
—6 006849 066515 A eee ee eee 
006511 065001 a 815 #878 i,t ©)—”——~—<C<C(<Cs RESTORE MERRY CELL 06 008173 
0086812 008041 A 8146 TKA 00 00814 
006515 901000 A B17 JMP ss ESZL a _ | | OO 00845 
0065144 006500 A 
006515 010002 A 8146 €822 LDA 2 RESTORE CONTENTS OF | 00 C0816 
006516 050000 4 619  #STA OO | LOCATION ZERO | 7 | tS 00817 
“006517 005044 A 829 TKA Seer ”rtCcmUSSeTS~*~“‘“CsSCS;éS . 
006529 001000 A 62k IMP « ESZA varian data meshes 


906924 306471 A 
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007494 a QUTC 007445 a QUTD 007416 A QUTE 0074586 A OUTF 
007475 4 QUTG 007522 a QUT 095334 A P8OOT 005327 A PDATA 
006367 A PLT 005573 4 PLO’ 05370 A PLOR 905226 a POFF - 
098279 A PROD 906986 A PWON 805340 A PYRI 005353 A PWR2 
905542 aA PwRO 000472 A PRRK 6y6570 A PYRU 005406 A SAVA 
OV8407 & SAWS 006411 4 SavO O06410 A SAVX 906601 A SSh1 | 
0U86086 A SSHW2 006623 A 3843 006636 A $SW4 006647 A S85 : a : 
006658 4 $804 008707 & SSwE 006610 A SSwWL 006642 A SSW 
006546 a SSWP 006672 A SSnHR 006704 A $8wS 006720 A SSwT 
OU04E7 A TAPE 000486 A TAPN CO7527 A TOLY 007535 A TOUL : 
007343 A TOUT 007550 A TSO 007551 a TS02 007552 a TS803 
000474 a TSH4 007553 4 TSOS 007554 A TS06 007555 A TS807 
O FRRORS~ ASSEMBLY COMPLETE 9900 re ee = " oe 
varian data machines 


